Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add <<Invoke>> bindings to button, listbox and menu, for consistancy with ttk. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-3608074 |
| Files: | files | file ages | folders |
| SHA1: |
bb6cac1113f7b564b2f0f5730fb35a46 |
| User & Date: | jan.nijtmans 2013-03-20 11:01:17 |
Context
|
2013-03-21
| ||
| 08:12 | Add documentation for <<EnteredChild>>, <<Invoke>>, <<Increment>> and <<Decrement>> Closed-Leaf check-in: 1249c24f user: jan.nijtmans tags: bug-3608074 | |
|
2013-03-20
| ||
| 11:01 | Add <<Invoke>> bindings to button, listbox and menu, for consistancy with ttk. check-in: bb6cac11 user: jan.nijtmans tags: bug-3608074 | |
|
2013-03-13
| ||
| 15:46 | Patch by Andrew Shadura, providing better support for three architectures they have in Debian. check-in: 61ea6e11 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to library/button.tcl.
| ︙ | ︙ | |||
105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
}
bind Checkbutton <space> {
tk::CheckRadioInvoke %W
}
bind Radiobutton <space> {
tk::CheckRadioInvoke %W
}
bind Button <FocusIn> {}
bind Button <Enter> {
tk::ButtonEnter %W
}
bind Button <Leave> {
tk::ButtonLeave %W
| > > > > > > > > > | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 |
}
bind Checkbutton <space> {
tk::CheckRadioInvoke %W
}
bind Radiobutton <space> {
tk::CheckRadioInvoke %W
}
bind Button <<Invoke>> {
tk::ButtonInvoke %W
}
bind Checkbutton <<Invoke>> {
tk::CheckRadioInvoke %W
}
bind Radiobutton <<Invoke>> {
tk::CheckRadioInvoke %W
}
bind Button <FocusIn> {}
bind Button <Enter> {
tk::ButtonEnter %W
}
bind Button <Leave> {
tk::ButtonLeave %W
|
| ︙ | ︙ |
Changes to library/listbox.tcl.
| ︙ | ︙ | |||
138 139 140 141 142 143 144 145 146 147 148 149 150 151 |
clipboard clear -displayof %W
clipboard append -displayof %W [selection get -displayof %W]
}
}
bind Listbox <space> {
tk::ListboxBeginSelect %W [%W index active]
}
bind Listbox <Select> {
tk::ListboxBeginSelect %W [%W index active]
}
bind Listbox <Control-Shift-space> {
tk::ListboxBeginExtend %W [%W index active]
}
bind Listbox <Shift-Select> {
| > > > | 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 |
clipboard clear -displayof %W
clipboard append -displayof %W [selection get -displayof %W]
}
}
bind Listbox <space> {
tk::ListboxBeginSelect %W [%W index active]
}
bind Listbox <<Invoke>> {
tk::ListboxBeginSelect %W [%W index active]
}
bind Listbox <Select> {
tk::ListboxBeginSelect %W [%W index active]
}
bind Listbox <Control-Shift-space> {
tk::ListboxBeginExtend %W [%W index active]
}
bind Listbox <Shift-Select> {
|
| ︙ | ︙ |
Changes to library/menu.tcl.
| ︙ | ︙ | |||
102 103 104 105 106 107 108 109 110 111 112 113 114 115 |
bind Menubutton <ButtonRelease-1> {
tk::MbButtonUp %W
}
bind Menubutton <space> {
tk::MbPost %W
tk::MenuFirstEntry [%W cget -menu]
}
# Must set focus when mouse enters a menu, in order to allow
# mixed-mode processing using both the mouse and the keyboard.
# Don't set the focus if the event comes from a grab release,
# though: such an event can happen after as part of unposting
# a cascaded chain of menus, after the focus has already been
# restored to wherever it was before menu selection started.
| > > > > | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 |
bind Menubutton <ButtonRelease-1> {
tk::MbButtonUp %W
}
bind Menubutton <space> {
tk::MbPost %W
tk::MenuFirstEntry [%W cget -menu]
}
bind Menubutton <<Invoke>> {
tk::MbPost %W
tk::MenuFirstEntry [%W cget -menu]
}
# Must set focus when mouse enters a menu, in order to allow
# mixed-mode processing using both the mouse and the keyboard.
# Don't set the focus if the event comes from a grab release,
# though: such an event can happen after as part of unposting
# a cascaded chain of menus, after the focus has already been
# restored to wherever it was before menu selection started.
|
| ︙ | ︙ | |||
139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
}
bind Menu <ButtonRelease> {
tk::MenuInvoke %W 1
}
bind Menu <space> {
tk::MenuInvoke %W 0
}
bind Menu <Return> {
tk::MenuInvoke %W 0
}
bind Menu <Escape> {
tk::MenuEscape %W
}
bind Menu <Left> {
| > > > | 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 |
}
bind Menu <ButtonRelease> {
tk::MenuInvoke %W 1
}
bind Menu <space> {
tk::MenuInvoke %W 0
}
bind Menu <<Invoke>> {
tk::MenuInvoke %W 0
}
bind Menu <Return> {
tk::MenuInvoke %W 0
}
bind Menu <Escape> {
tk::MenuEscape %W
}
bind Menu <Left> {
|
| ︙ | ︙ |